From: Lars Hansen <larsh@soem.dk>
Date: Sun, 8 Aug 2004 19:35:15 +0000 (+0000)
Subject: (widget-sexp-validate): Allow whitespace after expression.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~21448
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=447cff9175a6b78a09acae4887a86905f4886cb2;p=emacs.git

(widget-sexp-validate): Allow whitespace after expression.
---

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 8029fb3d5a6..05ef4b95658 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -3153,6 +3153,8 @@ It will read a directory name from the minibuffer when invoked."
 		(setq err "Empty sexp -- use `nil'?")
 	      (unless (widget-apply widget :match (read (current-buffer)))
 		(setq err (widget-get widget :type-error))))
+	    ;; Allow whitespace after expression.
+	    (skip-syntax-forward "\\s-")
 	    (if (and (not (eobp))
 		     (not err))
 		(setq err (format "Junk at end of expression: %s"